home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 2
/
64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64
/
listing 7
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
83 lines
1000 rem *** ein sprite-paar ***
1010 :
1020 :
1030 rem ** ausgabe programmeldung
1040 :
1050 print "[147]bitte warten";
1060 :
1070 :
1080 rem ** sprite-daten laden
1090 :
1100 for n = 896 to 958 :rem 1.sprite
1105 : read spdta
1110 : poke n, spdta
1130 next n
1140 print". "; :rem pktausgb
1150 :
1160 for n = 960 to 1022 :rem 2.sprite
1165 : read spdta
1170 : poke n, spdta
1190 next n
1200 print". "; :rem pktausgb
1210 :
1220 data 0, 28, 0, 0, 62, 0
1230 data 0, 62, 0, 0, 62, 0
1240 data 0, 28, 0, 0, 8, 0
1250 data 0,255,128, 0,255,128
1260 data 0,190,128, 0,156,128
1270 data 0,136,128, 0,190,128
1280 data 0,190,128, 1,156,192
1290 data 1,148,192, 0, 20, 0
1300 data 0, 20, 0, 0, 20, 0
1310 data 0, 54, 0, 0,119, 0
1320 data 0,119, 0
1330 :
1340 data 0, 28, 0, 0, 62, 0
1350 data 0, 62, 0, 0,127, 0
1360 data 0, 93, 0, 0, 8, 0
1370 data 0,127, 0, 0,127, 0
1380 data 0, 93, 0, 0, 73, 0
1390 data 0, 93, 0, 0,127, 0
1400 data 0,255,128, 0, 62, 0
1410 data 0, 62, 0, 0, 20, 0
1420 data 0, 20, 0, 0, 20, 0
1430 data 0, 20, 0, 0, 54, 0
1440 data 0,119, 0
1450 :
1460 :
1470 rem ** sprite-register vorbereiten
1480 :
1490 print "[147]" :rem schirm loesch.
1500 vic = 53248 :rem grafikbaustein
1510 :
1520 poke 2040,14 :rem datenzeiger 0
1530 poke 2041,15 :rem datenzeiger 1
1540 :
1550 poke vic,124 :rem horzntl.pos. 0
1560 poke vic+2,173 :rem horzntl.pos. 1
1570 poke vic+1,150 :rem vertkal.pos. 0
1580 poke vic+3,150 :rem vertkal.pos. 1
1590 :
1600 poke vic+39,3 :rem 0 ist hellblau
1610 poke vic+40,7 :rem 1 ist gelb
1620 :
1630 poke vic+23,3 :rem beide sprites
1640 poke vic+29,3 :rem dopp. groesse
1650 :
1660 poke vic+21,3 :rem beide sichtb.
1670 :
1680 :
1690 rem ** prog.ende mit tastendruck
1700 :
1710 get kp$
1720 if kp$ = "" then 1710
1730 :
1740 :
1750 rem ** ruecksetzen des registers
1760 :
1770 poke vic+21,0 :rem sprites aus
1780 poke vic+29,0 :rem und wieder
1790 poke vic+23,0 :rem normalgroesse
1800 :
1810 end